home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler1.Sym < prev    next >
Encoding:
Text File  |  1994-09-15  |  2.6 KB  |  8 lines  |  [TEXT/.Ob4]
  1. ˜ìä≈∂Kepler1Üõ¬∂KeplerGraphs |ObjectDesc
  2. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  3. ¸{selfıñ≥Filesreseof tRider˚{R Read
  4. ¸{self˚{R WritenofptsStar
  5. pConstellationnext tConsDesc
  6. ¸{self˚{R Read
  7. ¸{selfState
  8. ¸{self˚{R     Writewidtha1a2  |AttrDesc
  9. AttrLine¸{A˚{F Draw
  10. ¸{A˚{R Read
  11. ¸{A˚{R WriteCircle xCircleDesc
  12. ¸{C˚{F DrawEllipse tEllipseDesc
  13. ¸{E˚{F DrawH90Shape pH90ShapeDesc
  14. ¸{self˚{F     Draw HShape l!!!HShapeDesc
  15.  ¸{self˚{F !
  16. Draw"Line h###LineDesc
  17. "¸{L˚{F # Draw$Rectangle d%%%RectangleDesc
  18. $¸{R˚{F %Draw&Stringµï√∂KeplerFrames
  19. Ä'sêØâflFonts(Font(òfntúalign †x)))CaptionDesc
  20. )*Caption*¸{C˚{F )Draw
  21. *¸{C˚{R )Read
  22. *¸{C˚{R )Write )†`+++StringDesc,Texturepat \---TextureDesc
  23. ,¸{T˚{F -Draw
  24. ,¸{T˚{R -Read
  25. ,¸{T˚{R -Write.Trianglepat X///TriangleDesc
  26. .¸{T˚{F /Draw
  27. .¸{T˚{R /Read
  28. .¸{T˚{R /Write
  29.  ChangeAlign
  30.  ChangeAttrLine
  31.  ChangeFont
  32.  NewAttrLine
  33. 
  34. NewCircle
  35.  NewEllipse
  36.  NewH90Shape
  37.  NewHShape
  38.  NewLine
  39.  NewRectangle
  40.  NewString
  41.  NewTexture
  42.  NewTriangleܵàflDisplay0Frame0dsc0nextX
  43. Y WH
  44. 0¸{f x11FrameMsg1˚{msg     2Handler2handle t33FrameDescx0y0scale ext 3$|44 4PortDesc
  45. ¸{P˚{x4CX
  46. ¸{P˚{y4CY
  47. ¸{P˚{X4Cx
  48. ¸{P˚{Y4Cy
  49. ¸{P˚{x˙{y˘{r¯{col˜{mode 4DrawCircle
  50. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode 4DrawEllipse
  51. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode 4DrawLine
  52. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode 4DrawRect
  53. ¸{P˚{x˙{y 5˘{s(˜{fontˆ{colı{mode 4    DrawString
  54. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode 4    
  55. FillCircle
  56. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode 4
  57. FillQuad
  58. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode 4 FillRect4xyrefcntsel next x666StarDesc
  59. ¸{self˚{P 6Draw
  60. ¸{self˚{R 6Read
  61. ¸{self˚{R 6Write6 !"#$%&+
  62.  7Name7name height"minX$maxX&minY(maxY8Font8,raster0 4|99FontDesc(9,-./03 |::Bytes8: